Great Canadian Scientists/GCS_CD.iso/pc/gcsdata/databa_o.dxr/00049_ChangeField Size.ls

Text File | 1996-09-21 | 2.3 KB | 56 lines

on ChangeFieldSize f, t, a, b, c, d
  repeat with count = f to t
    set the rect of cast count to rect(a, b, c, d)
  end repeat
end

on SetupScientist f, t
  repeat with count = f to t
    set the name of cast count to line 1 of the text of cast count
    put line 1 of the text of cast count into field (count + 300)
    put line 3 of the text of cast count into line 2 of field (count + 300)
    set the name of cast (count + 300) to word 1 of the text of cast (count + 300) & "-Title"
    delete line 4 of field count
    delete line 3 of field count
    delete line 2 of field count
    delete line 1 of field count
    set the textStyle of member count to "Plain"
    set the textSize of member count to 14
    set the textFont of member count to "Helvetica"
    set the textStyle of line 1 of member (count + 300) to "Plain"
    set the textSize of line 1 of member (count + 300) to 36
    set the textFont of line 1 of member (count + 300) to "Helvetica"
    set the textStyle of line 1 of member (count + 300) to "Bold"
    set the textSize of line 2 of member (count + 300) to 18
    set the textStyle of line 2 of member (count + 300) to "Plain"
    set the textFont of line 2 of member (count + 300) to "Times"
    set the textStyle of line 2 of member (count + 300) to "Italic"
    set the foreColor of member (count + 300) to 0
    set the backcolor of cast (count + 300) to 255
  end repeat
  ChangeFieldSize(f, t, 5, 145, 616, 445)
  ChangeFieldSize(f + 300, t + 300, 6, 6, 631, 135)
end

on AddCopyRight
  set Temp to RETURN & "© 1996 Softshell Small Systems Software Design Inc." & RETURN & TAB & "All rights reserved"
  repeat with count = 301 to 446
    put Temp into line the number of lines in field the name of cast count + 1 of field the name of cast count
  end repeat
end

on RemSpace
  repeat with count = 171 to 247
    if the name of cast count <> EMPTY then
      repeat with Count2 = 1 to the number of lines in field the name of cast count
        set Temp1 to the last char in line Count2 of field the name of cast count
        if Temp1 = " " then
          set Temp2 to the length of line Count2 of field the name of cast count
          delete char Temp2 of line Count2 of field the name of cast count
          put the name of cast count
        end if
      end repeat
    end if
  end repeat
end